Web Publisher's Design Gu…or Windows (2nd Edition)/design.iso/otherfiles/sideshow (shockwave)/00002_Movie.ls

Text File | 1995-08-28 | 1.2 KB | 47 lines

on startMovie
  global gLoop, gPup, gbackground
  clearGlobals()
  set the colorDepth to 8
end

on stopMovie
  clearGlobals()
end

on muZak theSound
  if soundBusy(1) = 0 then
    puppetSound(theSound, 1)
  else
    nothing()
  end if
end

on happyJoy puppy, newCast, newVert, newHor, oldlocV, oldlocH
  puppetSprite(puppy, 1)
  set the castNum of sprite puppy to newCast
  repeat while the locH of sprite puppy > -5
    set the locV of sprite puppy to the locV of sprite puppy + newVert
    set the locH of sprite puppy to the locH of sprite puppy + newHor
    updateStage()
  end repeat
  puppetSprite(puppy, 0)
  set the locV of sprite puppy to oldlocV
  set the locH of sprite puppy to oldlocH
  updateStage()
end

on qMark
  set the locV of sprite 6 to 150 + random(6)
  set the locH of sprite 6 to 90 + random(6)
  set the foreColor of sprite 6 to random(100)
  set the castNum of sprite 8 to 80
  set the locV of sprite 8 to 140 + random(9)
  set the locH of sprite 8 to 420 + random(8)
  set the foreColor of sprite 8 to random(100)
  set the castNum of sprite 9 to 80
  set the locV of sprite 9 to 265 + random(15)
  set the locH of sprite 9 to 145 + random(5)
  set the foreColor of sprite 9 to random(100)
  updateStage()
end